library(tidyverse)
library(DeclareDesign)
library(rdss)

sims <- 2000
bootstrap_sims <- 2000

source("code/declarations/declaration_23.1a.R")
source("code/declarations/declaration_23.1b.R")
source("code/declarations/declaration_23.1c.R")
source("code/declarations/declaration_23.1d.R")

diagnosis_23.1 <-
  diagnose_designs(declaration_23.1,
                   sims = sims,
                   bootstrap_sims = bootstrap_sims)

write_rds(diagnosis_23.1, file = "diagnosis_objects/diagnosis_23.1.rds")
